home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 126 / 126.d81 / b.laser show (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  338b  |  12 lines
  1. 2 dv=peek(186):ifdv<8thendv=8
  2. 10 poke53280,0:poke53281,0
  3. 20 fori=0to10:poke781,i:sys59903:next
  4. 220 sys57812"freezer",dv,0:poke780,0:poke781,52:poke782,3:sys65493
  5. 230 poke873,dv
  6. 250 sys820:poke56325,60
  7. 260 rem poke816,165:poke817,244
  8. 300 print"[144]load"chr$(34)"laser show"chr$(34)","dv
  9. 310 print"run"
  10. 320 poke631,13:poke632,13:poke198,2:end
  11. 10000 open15,8,15,"s0:b.laser show":close15:save"b.laser show",8:end
  12.